home *** CD-ROM | disk | FTP | other *** search
/ Leisure Game Pak 1 / Leisure Game Pak I.iso / bin / mouseok.pas < prev    next >
Pascal/Delphi Source File  |  1994-08-17  |  251b  |  15 lines
  1. program mouseok;
  2. uses dos;
  3.  
  4. VAR register : REGISTERS;
  5.  
  6.  
  7.    BEGIN
  8.       register.AX := $0021;
  9.       INTR($33,register);
  10.       IF (register.AX = $FFFF) AND (register.BX = $02) THEN
  11.        halt(0) else
  12.          halt(1); {no mouse}
  13.    END.
  14.  
  15.